home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / mac / Education / LogoMation 1.1.1 ƒ / Examples / Rutland Middle school, Canada / swirl / swirl next >
Text File  |  1995-06-21  |  359b  |  23 lines
  1. // PROGRAM BY MICHAEL JACOB
  2. // JUNE 1995
  3. // FINE ARTS 8 - COMPUTER GRAPHICS
  4. // RUTLAND MIDDLE SCHOOL
  5. // KELOWNA, BC, CANADA
  6. // INSTRUCTOR:  MR. B. HOPE
  7.  
  8. Width 2
  9. Color 7149,6274,65535
  10. Up
  11. Goto -65,80,0
  12. Down
  13. angle =170
  14. Repeat 18
  15.     Forward 30
  16.     Right angle
  17.     angle = angle - 10
  18.  
  19. Repeat 18
  20.     Forward 25
  21.     Right angle
  22.     angle = angle - 10
  23. Sound "Indigo"